home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / shottank.zip / SHOTE‚s‚`‚m‚j / hsptmp < prev    next >
Text File  |  2004-03-19  |  13KB  |  465 lines
  1.     #include "hgimg.as" 
  2.     title "SHOT TANK" 
  3.     ;ü@âXâNâèü[âôé╠Åëè·É▌ÆΦ 
  4.     chgdisp 1
  5.     bgscr 2,640,480,0        ; âtâïâXâNâèü[âôé═òKé╕bgscré┼ì∞ɼ
  6.     cls 4
  7.     hgsetreq SYSREQ_DXMODE,1    ; âtâïâXâNâèü[âôâéü[âhé≡ÄwÆΦ
  8.     hgsetreq SYSREQ_DXWIDTH,640        ; âtâïâXâNâèü[âôë≡æ£ôxX
  9.     hgsetreq SYSREQ_DXHEIGHT,480    ; âtâïâXâNâèü[âôë≡æ£ôxY
  10.     hgini
  11.     randomize:âXâeü[âW=0:âRâôâeâBâjâàü[=3
  12. *start 
  13.     hgreset 
  14.     ;ü@ë╣èyâfü[â^é╠ô╟é▌ì₧é▌ 
  15.     font "élér âSâVâbâN",40
  16.     ÄwÆΦ=0:sdim ìÇû┌,20,6
  17.     s=0
  18.     ìÇû┌="GAME START","EXIT"
  19.     buffer 14,0,0:picload "zyunnbi.bmp":buffer 13,0,0:picload "make.bmp":buffer 12,0,0:picload "win.bmp"
  20.     buffer 9,0,0:picload "sute-zi1.bmp":buffer 10,0,0:picload "sute-zi11.bmp":buffer 11,0,0:picload "sute-zi12.bmp"
  21.     buffer 8,0,0:picload "taitoru.bmp":buffer 4,0,0:picload "me-ta.bmp":buffer 5,0,0:picload "me-ta2.bmp"
  22.     buffer 6,0,0:picload "me-ta3.bmp":buffer 7,0,0:picload "me-ta4.bmp"
  23.     buffer 15,0,0:picload "sute-zi2.bmp":buffer 16,0,0:picload "sute-zi21.bmp":buffer 17,0,0:picload "sute-zi22.bmp"
  24.     buffer 18,0,0:picload "sute-zi3.bmp":buffer 19,0,0:picload "sute-zi31.bmp":buffer 20,0,0:picload "sute-zi32.bmp"
  25.     buffer 21,0,0:picload "sute-zi4.bmp":buffer 22,0,0:picload "sute-zi41.bmp":buffer 23,0,0:picload "sute-zi42.bmp"
  26.     buffer 24,0,0:picload "sute-zi5.bmp":buffer 25,0,0:picload "sute-zi51.bmp":buffer 26,0,0:picload "sute-zi52.bmp"
  27.     buffer 27,0,0:picload "sute-zi.bmp":buffer 28,0,0:picload "sute-zi7.bmp":buffer 29,0,0:picload "sute-zi8.bmp"
  28.     sndload "music.mid",0,1:sndload "baku.wav",3 :sndload "baku2.wav",4:sndload "music2.mid",5,1:sndload "music5.mid",8,1
  29.     sndload "music3.mid",6,1:sndload "music4.mid",7,1:sndload "music6.mid",10,1:sndload "music7.mid",11,1
  30.     ; öÜö¡
  31.     setsizef 4.5f,4.5f :setuv 0,0,79,79:addplate mdex,1:texload "baku.bmp":uvanim mdex,2,8,1
  32.     setsizef 1.5f,1.5f :setuv 0,0,94,94
  33.     addplate mdey,1
  34.     texload "kemu.bmp"
  35.     uvanim mdey,2,10,1
  36.     setsizef 10.5f,10.5f :setuv 0,0,79,79
  37.     addplate mdez,1
  38.     texload "baku.bmp"
  39.     uvanim mdez,4,8,1
  40.     ;ü@éléwâfü[â^é╠ô╟é▌ì₧é▌üEâIâuâWâFâNâgôoÿ^ 
  41.     if âXâeü[âW=0{mxload "eria" 
  42.     regobj bgchr,stat,OBJ_GROUND 
  43.     selpos bgchr:objset3 0, 0, 0}
  44.     if âXâeü[âW=1{mxload "eria2" 
  45.     regobj bgchr,stat,OBJ_GROUND 
  46.     selpos bgchr:objset3 0, 0, 0}
  47.     if âXâeü[âW=2{mxload "eria3" 
  48.     regobj bgchr,stat,OBJ_GROUND 
  49.     selpos bgchr:objset3 0, 0, 0}
  50.     if âXâeü[âW=3{mxload "eria4" 
  51.     regobj bgchr,stat,OBJ_GROUND 
  52.     selpos bgchr:objset3 0, 0, 0}    
  53.     if âXâeü[âW=4{mxload "eria5" 
  54.     regobj bgchr,stat,OBJ_GROUND 
  55.     selpos bgchr:objset3 0, 0, 0}
  56.     if âXâeü[âW=5{mxload "eria6" 
  57.     regobj bgchr,stat,OBJ_GROUND 
  58.     selpos bgchr:objset3 0, 0, 0}    
  59.     mxload "tank1":model=stat 
  60.     regobj mychr,model:setcoli mychr,1,8 
  61.     selpos mychr:objset3 50, 0, 0 
  62.     if âXâeü[âW=0{mxload "tank2":model=stat 
  63.     regobj mychr2,model,OBJ_MOVE:setcoli mychr2,2,4 
  64.     selpos mychr2:objset3 -50, 0, 0}
  65.     if âXâeü[âW=1{mxload "tank3":model=stat 
  66.     regobj mychr2,model,OBJ_MOVE:setcoli mychr2,2,4 
  67.     selpos mychr2:objset3 -50, 0, 0} 
  68.     if âXâeü[âW=2{mxload "tank4":model=stat 
  69.     regobj mychr2,model,OBJ_MOVE:setcoli mychr2,2,4 
  70.     selpos mychr2:objset3 -50, 0, 0} 
  71.     if âXâeü[âW=3{mxload "tank5":model=stat 
  72.     regobj mychr2,model,OBJ_MOVE:setcoli mychr2,2,4 
  73.     selpos mychr2:objset3 -50, 0, 0} 
  74.     if âXâeü[âW=4{mxload "tank6":model=stat 
  75.     regobj mychr2,model,OBJ_MOVE:setcoli mychr2,2,4 
  76.     selpos mychr2:objset3 -50, 0, 0} 
  77.     if âXâeü[âW=5{mxload "tank7":model=stat 
  78.     regobj mychr2,model:setcoli mychr2,2,4 
  79.     selpos mychr2:objset3 0, 0, 0}
  80.     ;ü@Æeé╠ëµæ£é≡ôoÿ^ 
  81.     setuv 0,0,99,99:setsizef 3.0f, 3.0f 
  82.     addplate ball1,1:texload "tama1.bmp" 
  83.     if âXâeü[âW=0{addplate ball2,1:texload "tama2.bmp" 
  84.     }
  85.     if âXâeü[âW=1{setuv 0,0,64,64:setsizef 2.5f, 2.5f 
  86.     addplate ball2,1:texload "tama3.bmp"
  87.     }
  88.     if âXâeü[âW=2{setuv 0,0,100,100:setsizef 4.5f, 4.5f 
  89.     addplate ball2,1:texload "tama4.bmp"
  90.     }
  91.     if âXâeü[âW=3{setuv 0,0,100,100:setsizef 3.0f, 3.0f 
  92.     addplate ball2,1:texload "tama5.bmp"
  93.     }
  94.     if âXâeü[âW=4{setuv 0,0,100,100:setsizef 1.5f, 1.5f 
  95.     addplate ball2,1:texload "tama6.bmp"
  96.     }
  97.     if âXâeü[âW=5{setuv 0,0,100,100:setsizef 1.0f, 1.0f 
  98.     addplate ball2,1:texload "tama7.bmp"
  99.     }
  100.     if âXâeü[âW=5{setuv 0,0,100,100:setsizef 8.5f, 8.5f 
  101.     addplate ball3,1:texload "tama8.bmp"
  102.     }
  103.     snd 5
  104.     if âXâeü[âW!=0:goto *é═é╢é▀
  105. *â^âCâgâïëµû╩
  106.     gsel 2
  107.     stick key,ÿAÄ╦*10,1
  108.     if s>150 {
  109.     ÄwÆΦ+=(key&8>0)-(key&2>0)
  110.     if ÄwÆΦ<0:ÄwÆΦ=1
  111.     if ÄwÆΦ>1:ÄwÆΦ=0
  112.     if key&16:on ÄwÆΦ goto *storyâüâCâô,*exit
  113.     }
  114.     s+2
  115.     repeat 6
  116.         strlen Æ╖,ìÇû┌.cnt
  117.         palcolor -(cnt=ÄwÆΦ)*200+255
  118.         pos -8*10+320,cnt*40+350
  119.         mes ìÇû┌.cnt
  120.     loop
  121.         pos 20,20:gzoom 600,300,8,0,0,400,s
  122.     if s>155:s=155
  123.     redraw 1:redraw 0:await 40:palcolor:boxf
  124. goto *â^âCâgâïëµû╩
  125. ////////////////////////////////////////////////////////////////////////////
  126. *storyâüâCâô
  127.     wait 50
  128.     cls 4
  129.     goto *é═é╢é▀
  130.  
  131. ////////////////////////////////////////////////////////////////////////////
  132. *exit
  133.     goto *owari
  134. ////////////////////////////////////////////////////
  135. *é═é╢é▀
  136.     gsel 2
  137.     cls 4
  138.     sndoff
  139.     if âRâôâeâBâjâàü[=0{âXâeü[âW=0:goto *start
  140.     }
  141.     if âXâeü[âW=6{âXâeü[âW=0:goto *start
  142.     }
  143.     repeat 400
  144.     color 255,255,255
  145.     font "élérü@âSâVâbâN",40
  146.     pos 350,300:mes "NOW LODING...."
  147.     if âXâeü[âW=1{
  148.     font "élérü@âSâVâbâN",70
  149.     pos 90,30:mes "SECOND STAGE"
  150.     pos 30,100:gcopy 15,0,0,321,185
  151.     pos 320,100:gcopy 16,0,0,315,179
  152.     pos 30,300:gcopy 17,0,0,300,150}
  153.     if âXâeü[âW=0{
  154.     font "élérü@âSâVâbâN",70
  155.     pos 90,30:mes "FIRST STAGE"
  156.     pos 30,100:gcopy 9,0,0,278,142
  157.     pos 320,100:gcopy 10,0,0,291,181
  158.     pos 30,300:gcopy 11,0,0,300,150}
  159.     if âXâeü[âW=2{
  160.     font "élérü@âSâVâbâN",70
  161.     pos 90,30:mes "THIRD STAGE"
  162.     pos 30,100:gcopy 18,0,0,328,204
  163.     pos 320,100:gcopy 19,0,0,341,179
  164.     pos 30,300:gcopy 20,0,0,300,150
  165.     }
  166.     if âXâeü[âW=3{
  167.     font "élérü@âSâVâbâN",70
  168.     pos 90,30:mes "FOUR STAGE"
  169.     pos 30,100:gcopy 21,0,0,328,204
  170.     pos 320,100:gcopy 22,0,0,341,179
  171.     pos 30,300:gcopy 23,0,0,300,150
  172.     }
  173.     if âXâeü[âW=4{
  174.     font "élérü@âSâVâbâN",70
  175.     pos 90,30:mes "FIVE STAGE"
  176.     pos 30,100:gcopy 24,0,0,328,204
  177.     pos 320,100:gcopy 25,0,0,341,179
  178.     pos 30,300:gcopy 26,0,0,300,150
  179.     }
  180.     if âXâeü[âW=5{
  181.     font "élérü@âSâVâbâN",70
  182.     pos 90,30:mes "FINAL STAGE"
  183.     pos 30,100:gcopy 27,0,0,328,204
  184.     pos 320,100:gcopy 28,0,0,341,179
  185.     pos 30,300:gcopy 29,0,0,300,150
  186.     }
  187.     font "élérü@âSâVâbâN",25
  188.     pos 400,400:mes "ÄcéΦâRâôâeâBâjâàü["+âRâôâeâBâjâàü[
  189.     await 5
  190.     loop
  191.     cls 4
  192. *greset 
  193.     gsel 2
  194.     setborder 140.0f,140.0f,140.0f 
  195.     hp=300:hp2=300 
  196.     selang mychr:objset1 1,0 
  197.     selang mychr2:objset1 1,0 
  198.     time=0:time2=0:time3=0:time4=0:zikan=1:time5=0
  199.     if âXâeü[âW=0:snd 0
  200.     if âXâeü[âW=1:snd 6
  201.     if âXâeü[âW=2:snd 7
  202.     if âXâeü[âW=3:snd 8
  203.     if âXâeü[âW=4:snd 10
  204.     if âXâeü[âW=5:snd 11
  205. *main 
  206.     ; âQü[âÇÆåé╠âïü[âv 
  207.     repeat
  208.     hgdraw
  209.     drawf = stat
  210.     gmode 2
  211.     stick k,15,1 
  212.     if k&128 : goto *owari 
  213.     my=mychr:myball=ball1:mycl=4:gosub *keymove 
  214.     if lani!=myanim : lani=myanim : objact my,lani 
  215.     if âXâeü[âW=0{if damage : hp-30 : if hp<0 : goto *dead 
  216.     }
  217.     if âXâeü[âW=1{if damage : hp-30 : if hp<0 : goto *dead 
  218.     } 
  219.     if âXâeü[âW=2{if damage : hp-35 : if hp<0 : goto *dead 
  220.     }
  221.     if âXâeü[âW=3{if damage : hp-25 : if hp<0 : goto *dead 
  222.     }
  223.     if âXâeü[âW=4{if damage : hp-10 : if hp<0 : goto *dead 
  224.     }
  225.     if âXâeü[âW=5{
  226.     if time3>200{
  227.     if time3<400{
  228.     if damage : hp-10 : if hp<0 : goto *dead 
  229.     }}}
  230.     if âXâeü[âW=5{
  231.     if time3>400{
  232.     if time3<800{
  233.     if damage : hp-5 : if hp<0 : goto *dead 
  234.     }}}
  235.     my=mychr2:myball=ball2:mycl=8:gosub *keymove2
  236.     if lani2!=myanim : lani2=myanim : objact my,lani2 
  237.     if âXâeü[âW=0{if damage : hp2-20 : if hp2<0 : goto *dead 
  238.     }
  239.     if âXâeü[âW=1{if damage : hp2-15 : if hp2<0 : goto *dead
  240.     }
  241.     if âXâeü[âW=2{if damage : hp2-10 : if hp2<0 : goto *dead
  242.     }
  243.     if âXâeü[âW=3{if damage : hp2-20 : if hp2<0 : goto *dead
  244.     }
  245.     if âXâeü[âW=4{if damage : hp2-13 : if hp2<0 : goto *dead
  246.     }
  247.     if âXâeü[âW=5{if damage : hp2-5 : if hp2<0 : goto *dead
  248.     }
  249.     if drawf{
  250.        redraw 0
  251.        pos 5,15:gcopy 5,0,0,300,80
  252.        pos 11,43:gcopy 4,0,0,hp-12,46
  253.        pos 320,15:gcopy 7,0,0,300,80
  254.        pos 326,42:gcopy 6,0,0,hp2-12,46
  255.     redraw 1
  256.     }
  257.     time+1:time2+1:time3+1:time4+1:time5+1
  258.     if time>200 :time4=0
  259.     rnd r, 7
  260.     r = 3 - r // r é═ [-3, -2, -1, 0, 1, 2, 3] é╠é╟éΩé⌐é╔é╚éΘ
  261.     fvseti fv8, r
  262.     fvmul fv8, 0.05f // fv.0 é╔ 0.05f é≡é⌐é»éΘ
  263.     Ä₧è╘+1
  264.     hgsync speed
  265.     if zikan=1{    
  266.     pos 150,200:gcopy 14,0,0,300,100
  267.     zikan=0:wait 300}
  268.     loop
  269. *keymove 
  270.     ; ôûé╜éΦö╗ÆΦ 
  271.     damage=0:getcoli a,my,2.0f 
  272.     if a!=-1 : damage=10 
  273.     if a!=-1 : snd 3    
  274.     if a!=-1 : {selpos a :objgetfv po
  275.         regobj ob,mdex,OBJ_UVANIM_1SHOT
  276.         selpos ob :objsetfv po
  277.     }
  278.     if a!=-1 :delobj a
  279.     ; âLü[é╔éµéΘê┌ô« 
  280.     selpos my 
  281.     objgetv fv:mx=fv.0:mz=fv.2 
  282.     if k&16 : gosub *myshot
  283.     if k&1 : gosub *mymov 
  284.     if k&4 : gosub *mymov 
  285.     if k&2 : gosub *mymov 
  286.     if k&8 : gosub *mymov 
  287.     return 
  288. *keymove2
  289.     selpos my 
  290.     objgetv fv:mx=fv.0:mz=fv.2 
  291.     if âXâeü[âW=0:if time3>70: gosub *myshot2
  292.     if âXâeü[âW=1:if time3>70: gosub *myshot2
  293.     if âXâeü[âW=2:if time3>80: gosub *myshot2
  294.     if âXâeü[âW=3:if time3>98: gosub *myshot2
  295.     if âXâeü[âW=4:if time3>20: gosub *myshot2
  296.     if âXâeü[âW=5{if time3>200:if time3<400:if time5>5: gosub *myshot2
  297.     }
  298.     if âXâeü[âW=5{if time3>430:if time3<800:myball=ball3:if time5>3:fv8=0.0f: gosub *myshot2
  299.     }
  300.     ; ôûé╜éΦö╗ÆΦ 
  301.     if âXâeü[âW=0{damage=0:getcoli a,my,2.0f 
  302.     }
  303.     if âXâeü[âW=1{damage=0:getcoli a,my,2.0f 
  304.     }
  305.     if âXâeü[âW=2{damage=0:getcoli a,my,2.0f 
  306.     }
  307.     if âXâeü[âW=3{damage=0:getcoli a,my,2.0f 
  308.     }
  309.     if âXâeü[âW=4{damage=0:getcoli a,my,2.0f 
  310.     }
  311.     if âXâeü[âW=5{damage=0:getcoli a,my,20.0f 
  312.     }
  313.     if a!=-1 : damage=10 
  314.     if a!=-1 : snd 3    
  315.     if a!=-1 : {selpos a :objgetfv po
  316.         regobj ob,mdex,OBJ_UVANIM_1SHOT
  317.         selpos ob :objsetfv po
  318.     }
  319.     if a!=-1 :delobj a
  320.     if âXâeü[âW=0:if time3>70:time3=0
  321.     if âXâeü[âW=1:if time3>70:time3=0
  322.     if âXâeü[âW=2:if time3>80:time3=0
  323.     if âXâeü[âW=3:if time3>100:time3=0
  324.     if âXâeü[âW=4:if time3>20:time3=0
  325.     if âXâeü[âW=5:if time3>800:time3=0
  326.     if myball=ball2{if time5>5:time5=0
  327.     }
  328.     if myball=ball3{if time5>3:time5=0
  329.     }
  330.     gosub *ôGê┌ô«
  331.     return 
  332. *ôGê┌ô«
  333.     // ûCæΣé╞Ä⌐ï@é╠ê╩ÆuÅεò±é≡ĵô╛é╡é▄é╖
  334.     selpos mychr2
  335.     objgetfv posEnemy
  336.     selpos mychr
  337.     objgetfv posMe
  338.  
  339.     // ûCÉgé╠ï┬èpé╞É∙ë±èpôxé≡ïüé▀é▄é╖
  340.     fvface posEnemy, posMe.0, posMe.1, posMe.2
  341.     selang mychr2
  342.     objsetfv posEnemy
  343.     
  344.     // ôGé╠ê┌ô«ù╩é╞ïüé▀é▄é╖
  345.     selpos mychr2
  346.     objgetfv posEnemy
  347.     fvsub posMe, posEnemy.0, posEnemy.1, posEnemy.2
  348.     fvdiv posMe, 400f, 400f, 400f
  349.     seldir mychr2
  350.     objsetfv posMe
  351.     
  352. *mymov 
  353.     speed=20
  354.     if k&2{
  355.     if time2>20{
  356.     selpos my :objgetfv po
  357.     regobj ob,mdey,OBJ_UVANIM_1SHOT
  358.     selpos ob :objsetfv po
  359.     time2=0
  360.     }}
  361.     ; âJâüâë&Ä⌐âLâââëê┌ô« 
  362.     selpos mychr 
  363.     objgetfv fv 
  364.     selang mychr 
  365.     if k&1 : objaddf1 1,-0.008f
  366.     if k&4 : objaddf1 1,0.008f
  367.     if k&2 { ; æOÉi 
  368.     objgetfv fv2 
  369.     fvdir fv2,0.0f,0.0f,0.12f 
  370.     fvadd fv,fv2.0,fv2.1,fv2.2 
  371.     } 
  372.     if k&8 { ; îπæ▐ 
  373.     objgetfv fv2 
  374.     fvdir fv2,0.0f,0.0f,-0.1f 
  375.     fvadd fv,fv2.0,fv2.1,fv2.2 
  376.     } 
  377.     fvmin fv, -70.0f, -70.0f, -70.0f ; ë║î└ 
  378.     fvmax fv, 70.0f, 70.0f, 70.0f ; Åπî└ 
  379.     selpos mychr 
  380.     objsetfv fv 
  381.     ;âJâüâëé╠îⁿé½é≡ìXÉV 
  382.     selang mychr 
  383.     objgetfv fv_cang 
  384.     fvadd fv_cang,0.0f, 34.6f, 0.0f ;É^îπéδé⌐éτé╛é╞æOé¬î⌐éªé╚éóé╠é┼Å¡é╡ë║îⁿé½é╔é╖éΘ 
  385.     fvmul fv_cang,1.0f,-1.0f, 1.0f 
  386.     selcang : objsetfv fv_cang 
  387.     ;âJâüâëé╠ê╩Æué≡ìXÉV 
  388.     selpos mychr 
  389.     objgetfv fv_cpos 
  390.     fvset fv_wk,0.0f,0.0f,0.0f 
  391.     fsin fv_wk.0,fv_cang.1 
  392.     fcos fv_wk.2,fv_cang.1 
  393.     fvmul fv_wk,10.0f,1.0f,10.0f 
  394.     selcpos 
  395.     objsetfv fv_cpos 
  396.     objaddfv fv_wk 
  397.     objaddf3 0.0f,-3.3f,0.0f ;É^îπéδé⌐éτé╛é╞æOé¬î⌐éªé╚éóé╠é┼Å¡é╡ìééóê╩Æué╔é╖éΘ 
  398.     return 
  399. *myshot 
  400.     ;ü@Æeé╠è╟ù¥é≡ìséñ 
  401.     if time>45 {
  402.     regobj shot,myball,OBJ_XFRONT|OBJ_BORDER|OBJ_MOVE 
  403.     setcoli shot,mycl,0 
  404.     selpos shot:objsetv fv 
  405.     selang my:objgetfv fv 
  406.     fvdir fv,0.0f,0.0f,1.4f 
  407.     seldir shot:objsetfv fv 
  408.     snd 4 
  409.     time=0
  410.     }
  411.     return 
  412. *myshot2 
  413.     ;ü@Æeé╠è╟ù¥é≡ìséñ 
  414.     rnd ran,8
  415.     regobj shot,myball,OBJ_XFRONT|OBJ_BORDER|OBJ_MOVE 
  416.     setcoli shot,mycl,0 
  417.     selpos shot:objsetv fv 
  418.     selang my:objgetfv fv 
  419.     if âXâeü[âW=0{fvdir fv,fv8,0.0f,-1.2f
  420.     }
  421.     if âXâeü[âW=1{fvdir fv,fv8,0.0f,-1.6f
  422.     }
  423.     if âXâeü[âW=2{fvdir fv,fv8,0.0f,-1.4f
  424.     }
  425.     if âXâeü[âW=3{fvdir fv,fv8,0.0f,-1.3f
  426.     }
  427.     if âXâeü[âW=4{fvdir fv,fv8,0.0f,-1.4f
  428.     }
  429.     if âXâeü[âW=5{
  430.     fvdir fv,fv8,0.0f,-1.4f
  431.     }
  432.     seldir shot:objsetfv fv 
  433.     snd 4
  434.     return 
  435. *dead 
  436.     ; Åƒösö╗ÆΦ 
  437.     zx=0
  438.     repeat 400
  439.     zx+1
  440.     if zx>100:zx=100
  441.     hgdraw
  442.     if hp<0{pos 150,200:gcopy 13,0,0,300,zx
  443.     selpos my :objgetfv po
  444.     regobj ob,mdez,OBJ_UVANIM_1SHOT
  445.     selpos ob :objsetfv po
  446.     delobj mychr}
  447.     if hp2<0{pos 150,200:gcopy 12,0,0,300,zx
  448.     selpos my :objgetfv po
  449.     regobj ob,mdez,OBJ_UVANIM_1SHOT
  450.     selpos ob :objsetfv po
  451.     delobj mychr2}
  452.     hgsync speed 
  453.     stick k,15,1:if k&128 : goto *owari 
  454.     selang my:objaddf1 1,0.2f 
  455.     delobj my
  456.     loop
  457.     if hp<0{âRâôâeâBâjâàü[-1:goto *start
  458.     }
  459.     if hp2<0{âXâeü[âW+1:goto *start
  460.     }
  461.     goto *start
  462. *owari 
  463.     hgbye 
  464.     end
  465.